00100 TITLE TEST 00200 STRT: JRST STRT ;THIS IS A LONG COMMENT HO HO. EVEN LONGER. 00300 FUCK←←23 00350 DEFINE FLOOR (A,B) 00360 < MOVEI A,B 00370 JRST STRT 00380 ANDCBI 2,3;A B 00390 > 00400 JRST STRT 00500 MOVEI 1,2 00600 FUCK: FLOOR (2,546) 00700 MOVEI 2,3 00800 END STRT